#!/usr/bin/perl

use CGI qw(:standard);
use XML::Simple;

my $n_partido = param('num_partido');
my $resultado = param('resultado');

if (defined $n_partido ) {

  $n_partido--;

  my $modificacion = XMLin('ejercicio4.xml'); #lee xml

  my @partidos = @{$modificacion->{'partido'}};
  $partidos[$n_partido]->{'resultado'} = $resultado; # Altera contenido

  open (F, ">ejercicio4.xml"); #escribe

  print F "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";

  print F "<quiniela>\n";
  foreach my $item (@partidos) {
    print F "<partido>\n";
    print F "<local>$item->{local}</local>\n";
    print F "<visitante>$item->{visitante}</visitante>\n";
    print F "<resultado>$item->{resultado}</resultado>\n";
    print F "</partido>\n"; 
  }
  print F "</quiniela>\n";

  close F;
}

my $ficheroMod = XMLin('ejercicio4.xml');

print header( -type => 'application/xhtml+xml' );

# Escribes en el cliente
print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";

print "<quiniela>\n";
foreach my $item (@{$ficheroMod->{partido}}) {
  print "<partido>\n";
  print "<local>$item->{local}</local>\n";
  print "<visitante>$item->{visitante}</visitante>\n";
  print "<resultado>$item->{resultado}</resultado>\n";
  print "</partido>\n";
}
print "</quiniela>\n";
